perm filename FACT[LSP,JRA] blob sn#113577 filedate 1974-07-31 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(DE FACT(N)(F (FUNCTION F) N))
C00003 ENDMK
CāŠ—;
(DE FACT(N)(F (FUNCTION F) N))
(DE F(G M)(COND((ZEROP M)1)(T(TIMES M (G G(SUB1 M]